setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0):pen(0):cls
prints("8 mod 3="+str$(8 mod 3))
waitkey